home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / dicewahl.dir / 00013_Script_13 < prev    next >
Text File  |  1979-12-31  |  431b  |  16 lines
  1. on exitFrame
  2.   global reg 
  3.   set pw = baReadIni( "Dice3.1", "Passwort", "", "dice3.ini" )
  4.   set the text of member 25=baEncryptText( pw , "01010101" )
  5.   if chars(baEncryptText( pw , "0101010101" ),1,16)="^.R9FI&ABX2+N>J6" then
  6.     set reg=1
  7.   else
  8.     set reg=0
  9.   end if
  10.   if reg=0 then
  11.     set the visible of sprite 14 to true
  12.     puppetsound "klickd"
  13.   else
  14.     set the visible of sprite 14 to false
  15.   end if  
  16. end